home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / music / 87 / c / getenv.c < prev    next >
Text File  |  1986-12-19  |  384b  |  26 lines
  1. #include <basepage.h>
  2.  
  3. char *getenv(S)
  4. char *S;
  5. {char *T, *U;
  6.  BASEPAGE *P;
  7.  P=BP;
  8.  T=(char *)(P->p_env);
  9.  while ((*T)!=0)
  10.  {U=S;
  11.   while((*T)==(*U))
  12.   {T++;
  13.    U++;
  14.   }
  15.   if ((*T)=='='&&(*U)==0)
  16.   {if (*(++T)==0)
  17.     T++;
  18.    return T;
  19.   }
  20.   if ((*T)!=0)
  21.   {while ((*(T++))!=0);
  22.   } else
  23.    T++;
  24.  }
  25.  return NULL;
  26. }əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə